﻿Public Class FeuerkrafttabelleLuft11505
    Inherits Angriffstabelle
    Public Overrides Function GetWert(ByVal Name As String) As Integer
        Dim E As ObjektEinheit = GetUnit(Name)
        Select Case E.Bewegungsart.ToUpper
            Case MovementSorts.Flugzeug.ToString.ToUpper
                Return 57
            Case MovementSorts.Helikopter.ToString.ToUpper
                Return 57
            Case MovementSorts.Transport.ToString.ToUpper
                Return 45
            Case MovementSorts.Schiff.ToString.ToUpper
                Return 45
            Case MovementSorts.Fuß.ToString.ToUpper
                Return 100
            Case MovementSorts.Mech.ToString.ToUpper
                Return 100
            Case MovementSorts.Höllium.ToString.ToUpper
                Return 50
            Case MovementSorts.Amphibie.ToString.ToUpper
                Return 45
            Case MovementSorts.Ketten.ToString.ToUpper
                Return 50
            Case MovementSorts.Reifen.ToString.ToUpper
                Return 50
            Case MovementSorts.Motorreifen.ToString.ToUpper
                Return 100
            Case Else
                Return 50
        End Select
    End Function
End Class
